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Abstract 

In 1990, J.L. Krivine introduced the notion of storage operator to simulate, in 
A-calculus, the "call by value" in a context of a "call by name". J.L. Krivine has 
shown that, using Godel translation from classical into intuitionistic logic, we can 
find a simple type for storage operators in AF2 type system. 

In this present paper, we give a general type for storage operators in a slight exten- 
sion of AF2. We give at the end (without proof) a generalization of this result to 
other types. 

1 Introduction 

In 1990, J.L. Krivine introduced the notion of storage operators (see [3]). They are closed 
A-terms which allow, for a given data type (the type of integers, for example), to simu- 
late in A-calculus the "call by value" in a context of a "call by name" (the head reduction). 

J.L. Krivine has shown that the formula Vx{A*[x] — ► -i->N[x}} is a specification for stor- 
age operators for Church integers : where N[x] is the type of integers in second order 
logic, and the operation * is the simple Godel translation from classical into intuitionistic 
logic which associates to every formula F the formula F* obtained by replacing in F each 
atomic formula with its negation (see [3]). 



Some authors have been interested in the research of a most general type for storage op- 
erators. For example, V. Danos and L. Regnier have given as type for storage operators 
the formula Vx{A e [a;] — ► -i-iA[x]} where the operation e is an elaborate Godel transla- 
tion which associates to every formula F the formula F e obtained by replacing in F each 
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atomic formula X(t) by Xi(t), ...,X r (t) (see [1]). J.L. Krivine and the author have 
given a more general type for storage operators : the formula ~tfx{N 9 [x] — > — i— iiV[x]} where 
the operation g is the general Godel translation which associates to every formula F the 
formula F 9 obtained by replacing in F each atomic formula X(t) by a formula Gx\t/x] 
ending with _L (see [4] and [5]). 

With the types cited before, we cannot type the following simple storage operators : 
T = \v\f((v)(Ti)vf)\xx and V = XuXf \{v){T^v f)\d(Tj)v f where T { (i = 1 or 2) are 
the standard storage operators for integers (see [3]). This is due to the fact that the 
normal form of T (and T') contains a variable v applied to two arguments and another v 
applied to three arguments. Therefore, we cannot type T and T' because the variable v 
is assigned by jV*[x] (for example) and thus the number of the //-arguments is fixed once 
for all. 

To solve the problem, we will replace N*[x] in the type of storage operators by another 
type TV- 1 [a;] which does not limit the number of //-arguments and only enables to generate 
formulas ending with _L in order to find a general specification for storage operators. 

The specifications of storage operators that we have obtained up to now do not explain 
that these operators only accept integers (for example Xn\f\z(x)z is a normal A-term of 
type iV*[0]). We will see that the type AT- 1 [a;] is also a specification for the integers. 

In this paper, we give a general type for the storage operators for integers in a slight ex- 
tension of AF2 (the storage operators T and T' are typable of this type). We give at the 
end (without proof) a generalization of this result to the V-positive types (the universal 
second order quantifier appears positively in these types). 

Acknowledgement. We wish to thank J.L. Krivine for helpful discussions. He found 
independently the principal result of this paper which he proved by a semantical method. 



2 



2 Definitions and notations 



2.1 The pure A-calculus 

Let t, u, ui, u n be A-terms, the application of t to u is denoted by (t)u. In the same 
way we write {t)u\...u n instead of (...((t)ui)...)u n . 
The /9-equivalence relation is denoted by u ~^ v . 

The notation a(t) represents the result of the simultaneous substitution a to the free 

variables of t after a suitable renaming of the bounded variables of t. 

We denote by (u) n v the A-term (u)...(u)v where u occurs n times, and u the sequence of 

A-terms u±, ...,u n . If u — Ui, ...,u n , we denote by (t)u the A-term {t)u\...u n . 

Let us recall that a A-term t either has a head redex [i.e. t = Xxi...Xx n (Xxu)vvi...v m , the 

head redex being (Xxu)v], or is in head normal form [i.e. t = Xxi...Xx n (x)vi...v m ]. 

The notation u >- v means that v is obtained from u by some head reductions. 

If u >- v, we denote by h(u, v) the length of the head reduction between u and v. 

A A-term t is said solvable iff the head reduction of t terminates. 

Lemma 2.1 (see [3]) Ifu>~v, then : 

1) for every substitution a, a(u) >- a(v) and h(a(u),a(v)) = h(u,v). 

2) for every sequence of X-terms w, there is a w such that (u)w >- w, (v)w >- w, and 
h((u)w, w) = h((v)w, w) + h(u, v) . 

2.2 The AF2 type system 

The types will be formulas of second order predicate logic over a given language. 
The logical connectives are _L (for absurd), — >, and V. 

There are individual (or first order) variables denoted by x,y,z,..., and predicate (or 
second order) variables denoted by X, Y, Z, . . . . 

We do not suppose that the language has a special constant for equality. Instead, we 
define the formula u = v (where u,v are terms) to be VY(Y(u) — > Y(v)) where Y is a 
unary predicate variable. Such a formula will be called an equation. 
The formula F x -> (F 2 ->(...-> (F n -> G)...)) is also denoted by F u F 2 , F n — > G. 
For every formula A, we denoted by ->A the formula A ^_L. 

If v — vi, v n is a sequence of variables, we denoted by \/vA the formula Vi>i...Vi> n A 
Let t be a A-term, A a type, and r = x\ : A±, ...,x n : A n a context. We define by the 
mean of this following rules the notion " t is of type A in the context T " . This notion is 
denoted by T h t : A. 
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(1) r h Xi : Ai 1 < i < n. 

(2) If T, x : A h t : B, then r h Axt : A -> 5. 



(3) 


if r 


h 




: A ^ B, and T \- v : A, then T h (u)v 


(4) 


if r 


h 


£ : 


A, then r h t : VxA. (*) 


(5) 


if r 


h 


t : 


VxA, then T hi : A[u/x\. (**) 


(6) 


if r 


h 


t : 


A, then r h t : VXA (*) 


(7) 


if r 


h 


t : 


VXA, then r h t : A[G/X]. (**) 


(8) 


if r 


h 


t : 


A[u/x], then T h t : A[u/a:]. (***) 



The previous rules are subject to the following restrictions : 
(*) The variable x (resp. X) has no free occurence in T. 
(**) u is a term and G is a formula of the language. 

(***) u and v are terms such that u — v is a consequence of a given set of equations. 

This type A-calculus system is called AF2 (for arithmetique fonctionnelle du second ordre). 

Theorem 2.1 (see [2]) The AF2 type system has the following properties : 

1) Type is preserved during reduction. 

2) Typable \-terms are strongly normalizable. 

We define on the set of types the two binary relations < and ~ as the least reflexive and 
transitive binary relations such that : 

- \/xA < A[u/x], if u is & term of language ; 

- MX A <\ A[F/X], if F is a formula of language ; 

- A pa B iff A = C[u/x], B = C[v/x], and u — v is a consequence of a given set of 
equations. 

Theorem 2.2 (see [5] and [7]) 

1) Let A be an atomic formula. IfY h t : A, then t does not begin by A. 

2) IfT,x:A\- (x)ui...u n : B, then : 

n = 0,A<lC,C~ C' , B = \/vC , and v have no free occurence in T and A, 
or 



4 



n>l,A<Ci—>B 1 , B[ < C i+ i -> 1 < i < n - I, B' n < 5 n+1; 5 = V*lB; +1 w/jere 
Bi m Bl 1 < i < n + I, T, x : A \- Ui : Ci 1 < i < n, and v have no free occurence in T 
and A. 

3 The Church integers 

Each data type can be denned by a second order formula. For example, the type of 
integers is the formula : 

N[x] = VX{X(0), Vy(X(y) - X(sy)) - X(x)} 

where X is a unary predicate variable, is a constant symbol for zero, and s is a unary 
function symbol for successor. 

The formula N[x] means semantically that x is an integer iff x belongs to each set X 
containing and closed under the successor function s. 
The A-term = XxXfx is of type N[0] and represents zero. 

The A-term s = XnXxXf (f)((n)x) f is of type \/y(N[y] — > N[s(y)]) and represents the 
successor function. 

A set of equations E is said adequate with the type of integers iff : 

- s(a) — is not an equational consequence of E ; 

- If s(a) = s(b) is an equational consequence of E, then so is a = b. 

In the rest of the paper, we assume that all the set of equations are adequate with the 
type of integers. 

For each integer n, we define the Church integer n by n = XxXf(f) n x. 

Theorem 3.1 (see [2]) For each integer n, n is the unique normal X-term of type N[s n (0)]. 

The propositional trace 

N = VX{X, (X -> X) -> X} 
of N[x] also defines the integers. 

Theorem 3.2 (see [2]) A normal X-term is of type N iff it is of the form n, for a certain 
integer n. 
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Remark A very important property of data type is the following (we express it for the 
type of integers) : in order to get a program for a function / : N — > N it is sufficient to 
prove h Vx(N[x] — > N[f(x)]). For example a proof of h \/x(N[x] — > N[p(x)}) from the 
equations p(0) = 0, p(s(x)) = x gives a A-term for the predecessor in Church intergers 
(see [2]). □ 

4 The storage operators 

Let T be a closed A-term. We say that T is a storage operator for the integers iff for every 
n > 0, there is r n ~^ n, such that for every 9 n ~^ n, there is a substitution a, such that 
(T)6 n f y (f)a(r n ). 

Remark Let F be any A-term (for a function), and 9 n a A-term /3-equivalent to n. Dur- 
ing the computation of (F)9 n , 9 n may be computed each time it comes in head position. 
Instead of computing (F)9 n , let us look at the head reduction of (T)9 n F. Since it is 
{(T)9 n f}[F/ f], by Lemma 2.1, we shall first reduce (T)9 n f to its head normal form, 
which is (/)cr(r n ), and then compute (F)<7'(r n ). The computation has been decomposed 
into two parts, the first being independent of F. This first part is essentially a computa- 
tion of 9 n , the result being r n , which is a kind of normal form of 9 n . The substitutions 
made in r n have no computational significance, since n is closed. So, in the computation 
of (T)9 n F, 9 n is computed first, and the result is given to F as an argument, T has stored 
the result, before giving it, as many times as needed, to any function. □ 

Examples If we take : 

T x = Xn((n)S)G where G = XxXy(x)Xz(y)(s)z and 5 = A/(/)0 
T 2 = XnXf(((n)f)F)0 where F = XxXy(x)(s)y, 

then it is easy to check that : for every 9 n ^ n, (T i )9 n f >~ (f)(s) n (i — 1 or 2). 
Therefore Ti and T 2 are two storage operators for the integers. □ 

It is a remarkable fact that we can give simple types to storage operators for integers. We 
first define the simple Godel translation F* of a formula F : it is obtained by replacing 
in the formula F, each atomic formula A by ->A. For example : 

N*[x] = VX{^X(0),Vy(^X(y) - ^X(sy)) - -X(x)} 

It is well know that, if F is provable in classical logic, then F* is provable in intuitionistic 
logic. 
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We can check that h T 1; T 2 : Vx{N*[x] — > -i-iJV[x]}. And, in general, we have the following 
Theorem : 

Theorem 4.1 (see [3] and [6]) If h T : Vx{iV*[a;] -> -.-.JV[x]}, toen T is a storage 
operator for the integers. 

Remark Let 6 = XxXf\z(x)(Xdz)Xxx. 

It is easy to check that h # : #*[0], and (T 2 )0 O / >- (/)(AdO)Axx. 

Therefore T 2 is not a storage operator for the set {t / h t : iV*[s n (0)] n > 0}. □ 

The previous definition is not well adapted to study the storage operators. Indeed, it 
is, a priori, a IT4 statement (Vn3T n V# n 3o"A(T, n, r n , 6 n , a)). We will show (Theorem 4.2) 
that it is in fact equivalent to a 11° statement (r n can be computed from n, and cr from 6 n ). 

Let 1/ and / two fixed variables. 

We denoted by x n> a,b,c (where n is an integer, a, b two A-terms, and c a finite sequence of 
A-terms) a variable which does not appear in a, b, c. 

Theorem 4.2 (see [5] and [8]) A closed \-term T is a storage operators for the integers 
iff for every n > 0, there is a finite sequence of head reduction {Ui >- Vj}i<i< r such that : 

1) Ui = {T)vf and V r = (f)r n where r n ~^ n ; 

2) Vi = [v)abc or V { = (x^ aA c)d < I < n - 1; 

3) IfVi = (v)abc, then U i+1 = (a)c if n = and U i+1 = ((b)x n ^ aAZ )c if n ^ ; 

4) IfVi = (x lta>bt c)d < I < n - I, then U i+1 = (a)d if I = and U i+1 = ((fyx^^^d if 
I ^ 0. 

5 General type for storage operators 

5.1 The AF2 ± type system 

In this section, we present a slight extension of the AF2 type system denoted by AF2±. 

We assume that for every integer n, there is a countable set of special n-ary second order 
variables denoted by X±, Y±,Z±...., and called _L- variables. 

A type A is called an _L-type iff A is obtained by the following rules : 
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- ± is an _L-type ; 

- ...,t n ) is an _L-type ; 

- If B is an _L-type, then A — > B is an _L-type for every type A ; 

- If A is an _L-type, then WvA is an _L-type for every variable v. 

Therefore, A is an T-type iff : A = \/W[{E 1 -> Fi), F< = V^(£ m -> F m ) 1 < i < r - 1, 
and F r = Vtv+rX_i_(£i, or = ^Wi _L. 

We add to the AF2 type system the new following rules : 

(6') If r h t : A, and has no free occurence in T, then r h t : VX±A. 

(7') If T h t : VX ± A, and G is an _L-type, then r h t : A[G/XJ. 

We call AF2 ± the new type system, and we write r \-± t : A if t is typable in AF2± of 
type A in the context T. 

Remark We can also see the system AF2± as a restriction of the system AF2. Therefore, 
AF2± satisfies the same properties of AF2 (strongly normalization and preservation of 
types). □ 

5.2 The general Theorem 

Let 

N^x] = \/X ± {X ± (0),Vy(X ± (y) - X ± (sy)) - X ± (x)} 
where Xj_ is a unary _L- variable. 

By the previous remark, we have : if T hj_ t : iV J -[s n (0)], then t ra. 

Lemma 5.1 If T is a closed normal \-term such that h T : Va;{iV*[x] — > -i-iJV[x]}, iVien 
h ± T : Vx{iV- L [a:] -> -.-.JVfa;]}. 

Proof T is a closed normal A-term, then T = XuT', and z/ : jV*[a;] h T" : -i-ijV[x]. Since 
z/ : A^[x] h ± z/ : JV*[x], then z/ : A^x] h ± T' : -.-.JVfa:]. Therefore h ± T : Var-fiV^x] -> 
-i-iTVfx]}. □ 

Remarks 

1) We have h T 1; T 2 : Vx{JV J -[a;] -> ^V[x]}. 

2) The A-terms T and T' (given in the introduction) are of type \fx{N A -[x] — > -i-ijV[x]}. 
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- We have v : N^\x\ h ± v :±, (±->±) ->±. Since z/ : iV^x], / : ~^N[x} h ± (T^i// :± 
and Axx :_L— >_L, then v : jV^a;],/ : -iiV[x] \~± ((u)(Ti)vf)Xxx :_L. Therefore 
h ± T : VxfA^x] -> -.--iVfa:]}. 

- We have 1/ : iV^x] h ± z/ :±, (±->±) ->±. Since 1/ : iV^x], / : -7V[x] h ± (T;)i// :± 
and 1/ : N^x], f : -7V[x] h ± \d(Tjvf :±->±, then 1/ : A^x],/ : -7V[x] h ± 
((i/)(Ti)i//)Ad(7i)i// :±. Therefore h ± T" : Vx{JV- L [a;] -> — 7V[x]}. □ 

We give now a general type for storage operators for integers. 

Theorem 5.1 If \-± T : Vx{N ± [x] — > -i-iJV[x]}, £/ien T is a storage operator for the 
integers. 

The type system Fj_ is the subsystem of AF2± where we only have propositional vari- 
ables and constants (predicate variables or predicate symbols of arity 0). So, first order 
variable, function symbols, and finite sets of equations are useless. The rules for typed 
are 1), 2), 3), and 6), 7) restricted to propositional variables. For each predicate variable 
(resp. predicate symbol) X, we associate a predicate variable (resp. a predicate symbol) 
X° of F± type system. For each formula A of AF2±, we associate the formula A° of F± 
obtained by forgetting in A the first order part. If T = X\ : Ai, ...,x n : A n is a context of 
AF2±, then we denote by T° the context X\ : A\, ...,x n : A° n of F±. 
We write r t : A if t is typable in F± of type A in the context T. 
We have obviously the following property : if T \-± t : A, then r° t : A°. 

Theorem 5.1 is a consequence of the following Theorem. 

Theorem 5.2 If\- ± T: N 1 - — > -i-ijV, then for every n>0, there is anm> and r m ^ 
to, suc/i t/iat /or every n ~^ n ; i/iere is a substitution a, such that (T)9 n f >- (/)cr(r m ). 

Indeed, if h ± T : VxjiV^x] -> ^iV[x]}, then T : -> -i-iiV. Therefore for 
every n > 0, there is an to > and r m ~p to, such that for every 6 n ^ n, there 
is a substitution a, such that (T)9 n f >- (/)o"(r m ). We have hj_ n : N[s n (0)], then 
/ : ^iV[s n (0)] h ± (T)n/ :±, therefore / : -.JV[s n (0)] h ± (/)m :±. By Theorem 2.2, we 
have \-± to : iV[s n (0)] and thus n — m. Therefore T is a storage operator for the integers. 
□ 

In order to prove Theorem 5.2, we shall need some Lemmas. 
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Lemma 5.2 IfT,u : N 1 - (v)d :_L, then d = a, b, dx, d r and there is an ^L-type F, 
such that : T,u : \-° ± a : F ;T,u : \-\b : F -> F ; F < Fi -> F i; F < F m -> F m 
1 < j < r _ i ; i? r< j_ ; and r, i/ : iV x q : E { 1 < i < r. 

Proof We use Theorem 2.2. □ 

Lemma 5.3 7/F is an L-type and V, x : F KJ_ :_L, £/ien d = di, d r ; F <E 1 — > Fi 
; F < F i+ i -> F +1 1 < i < r - 1 ; F r < ± ; and T,x : F h° ± a : E { 1 < i < r. 

Proof We use Theorem 2.2. □ 

Lemma 5.4 Let t be a normal \-term, and Ax, A n a sequence of _L-types. 
If Xi : Ai, ...,x n : A n \-\t : N , then there is an m > such that t = m. 

Proof We prove by induction on u that if u is a normal A-term, X a propositionnal 
variable, and X\ : A 1 , x n : A n , x : X, f : X — > X w : X, then there is an m > such 
that u = (f) m x. □ 

We can now give the proof of Theorem 5.2. 
Proof of Theorem 5.2 

Let v and / two fixed variables, and T : X- 1 — > -i-iJV. 

A good context T is a context of the form Y — v : X^, f : ->N, x nuaubu ^ : Fx, x np , apjbp ^ : 
F p where F is an _L-type, and T \-° ± : F, r 6; : F — > Fi, < n« < n — 1, and 
1 < % <p . 

We will prove that for every n > 0, there is a finite sequence of head reduction {Ui y 
Vi}i<i<r such that : 

1) Ux = (T)vf and V r = (/)r where r ~/3 m for some m > ; 

2) V5 = (v)abc or V$ = (arj )0>6> c)3 < / < n - 1; 

3) If Vi = {v)abc, then Ui+x = (a)c if n = and C/j+i = ((&)xn-i,a,&,c)c if n ^ 

4) If Vi = {x haA c)d < I < n - 1, then = (a)d if / = and C/" i+1 = ((6)x,_ 1)a |6>5 )d if 
I ^ 0. 

5) There is a good context V such that r 1^ :1 1 < j < r. 

We have \-\ T : iV ± -> then i/ : A^, /iniVh^ (7>/ :±, and by Lemmas 5.2 and 

5.3, {T)uf y Vx where Vi = (f)r or Vi = (u)abc. 

Assume that we have the head reduction Uk >- Vk and Vk ^ (f)r. 
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- If 14 = (u)abc, then, by induction hypothesis, there is a good context T such 
that T Kj_ (z/)a&c :_L. By Lemma 5.2, there is an _L-type, such that r hi a : F ; 
r hi b : F -> F ; c = a, c s ; F < F x -> F x ; F, < F m -> F m 1 < i < s - 1 ; 
F s < i_ ; and T hi q : F; 1 < i < s. 

- If n = 0, let C/fc+i = (a)c. We have T hi C/ fe+1 :±. 

- If n 7^ 0, let £4+i = ((fc)^ n -i,a,&,c)c. The variable x n -i, a ,b,c is not used before. 
Indeed, if it is, we check easly that the A-term (T)nf is not solvable. But that 
is impossible because / : — iiV Kj_ (T)nf :_L. Let V = T,x n -i^b,c '■ F. V is a 
good context and V hi Uk+i :J-. 

- If 14 = (xi : a t b,c)d, then, by induction hypothesis, there is a good context T such that 
T hi {xi )ay b,c)d :_L. Xi, a ,b,c : F is in the context T, then by Lemma 5.3, d = d±, ...,d s ; 
F < Fi -> Fi ; F < F i+ i -> F +1 1 < i < s - 1 ; F s < JL ; and T hi cfc : F; 1 < % < s. 

- If I = 0, let C/fc+i = (a)d. We have T hi C/ fc+1 :±. 

- If Z 0, let Uk+i = ((b)x l _ 1 a b 2)d. The variable x l _ lab 2 is not used before. 
Indeed, if it is, we check easly that the A-term (T)nf is not solvable. But that 
is impossible because / : — iiV hi (T)nf :_L. Let T' = T,xi-\ ta ^,c '■ F. V is a 
good context and V hi L4+i :J-. 

Therefore there is a good context V such that V hi L4+i :_L, then, by Lemmas 5.2 and 
5.3, £/ fc+ i >- Vfc+i where 14 +i = (f)r or V^+i = {v)abc or Vfc+i = (^, a ,&,c)d < I < n - 1. 
This constraction always terminates. Indeed, if not, we check easly that the A-term (T)nf 
is not solvable. But that is impossible because / : — iiV hi (T)nf :_L. 
Therefore there is r > and a good context T such that r hi V r = (/)r :_L, and by 
Theorem 2.2, r hi r : N. Therefore by Lemma 5.4, there is an m > such that r ~^ m. 
By the Theorem 4.2, we have the proof of the Theorem 5.2. □ 

6 Generalization 

In this section, we give (without proof) a generalization of the Theorem 5.1. 

Let T be a closed A-term, and D, E two closed types of AF2 type system. We say that 
T is a storage operator for the pair of types (D, E) iff for every A-term h t : D, there is 
A-terms r t and r/, such that r[ ~^ T t , h r t : F, and for every t ~g t, there is a substitution 
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a, such that (T)9 t f y (f)a(r t ). 

We define two sets of types of AF2 type system: Q + (set of V-positive types), and fl~ 
(set of V-negative types) in the following way : 

- If A is an atomic type, then A G and A G fi~ ; 

- If T G n + , and T" G ft", then, T' -> T G and T -> T' G ft" ; 

- If T G ft+ then VrT G fi+ ; 

- If T G then VrT G IT ; 

- If T G ft+ then VXT G fi+ ; 

- If T G Q~, and X has no free occurence in T, then VXT G fi~. 

Therefore, T is a V-positive types iff the universal second order quantifier appears posi- 
tively in T. 

For each predicate variable X, we associate an _L- variable X±. 

For each formula A of AF2 type system, we define the formula A L as follows : 

- If A =±, then A ± = A ; 

- If A = R(ti, .. .,£«), where R is an n-ary predicate symbol, then A 1 - = A ; 

- If A — X(ti, t n ), where X is an n-ary predicate variable, then A 1 - = X±(ti, ...,t n ); 

- If A = B -> C, then A x = £ x -> C ± ; 

- If A = VxB, then A ± = VxB ± ; 

- If A = VXB, then A ± = WX ± B ± . 
A 1 - is called the _L-transformation of A. 

Theorem 6.1 Let D, E two V-positive closed types of AF2 type system, such that E does 
not contain _L. If\-±T: D 1 - — > ->->E, then T is a storage operator for the pair (D,E). 
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